home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / SETMODE.PRG < prev    next >
Text File  |  1993-05-04  |  177b  |  11 lines
  1. FUNCTION SetMode
  2. PARAMETER pcSet, plOn
  3.   PRIVATE plPrev
  4.   plPrev = SET( pcSet ) = "ON"
  5.   IF plOn
  6.     SET &pcSet ON
  7.   ELSE
  8.     SET &pcSet OFF
  9.   ENDIF
  10. RETURN( plPrev )
  11.